﻿Imports System.Net.Mail
Imports DLLDungChung
Public Class thongtinkhachhang_muabanquyen

    Private Sub cmd_gui_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_gui.Click
       
        Try
            Dim hoten As String = txt_hoten.Text
            Dim dc As String = txt_diachi.Text
            Dim sdt As String = txt_sodienthoai.Text
            Dim em As String = txt_mail.Text
            Dim mailbody As String = "Key Bản Quyền:" + cauhinhmaytinh & vbCrLf & "<br />" &
            "Họ và Tên:" + hoten & "<br />" &
            "Địa Chỉ:" + dc & "<br />" &
            "Số Điện Thoại:" + sdt & "<br />" &
            "Email:" + em
            Dim mail As New MailMessage
            mail.From = New MailAddress("duongthanhqui94@gmail.com")
            mail.To.Add("nh0kqui94@gmail.com")
            mail.Subject = "Mua mã kích hoạt"
            mail.Body = mailbody
            mail.IsBodyHtml = True
            Dim smtp = New SmtpClient("smtp.mail.yahoo.com", 587)
            smtp.Credentials = New Net.NetworkCredential("duongthanhqui94@gmail.com", "traitimchiadoi")
            smtp.EnableSsl = True
            smtp.Send(mail)
            MsgBox("Vui lòng kiểm tra mail để nhận mã kích hoạt")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.Close()
        frm_dangkybanquyen.Enabled = True
    End Sub

End Class